home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Shell Folders.xpl < prev    next >
Text File  |  2001-02-10  |  2KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="4"
  3. "COUNT"="2"
  4. "UIPATH"="System\File System\Folders: Data"
  5. "NAME"="General Folders"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.56"
  8. "TEXT 1"="Personal Files"
  9. "TEXT 2"="Program Data"
  10. "DESCRIPTION 1"=""Personal Files" specifies the folder where your files from Lotus 1-2-3, Microsoft Excel, Microsoft Word, Corel Paint and so on are located."
  11. "DESCRIPTION 2"=""Program Data" is used by new applications from Microsoft for hidden but customized files. For example, Internet Explorer stores the Quick Launch bar links there."
  12. "DESCRIPTION 3"="*IMPORTANT* When changing any folder here, you need to copy the files from the old location to the new one "by hand". X-Setup can't do this! *IMPORTANT*"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  20. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  21.  
  22. 'sP_IE="HKCU\Software\Microsoft\Internet Explorer\"
  23. 'sV_IE_DL="Download Directory"
  24.  
  25. Sub Plugin_Initialize 
  26.  s=RegReadValue(sp1 & "Personal")
  27.  SetUIElement 1,s
  28.  
  29.  s=RegReadValue(sP1 & "AppData")
  30.  SetUIElement 2,s
  31. End Sub
  32.  
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37.  
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  s=GetUIElement(1)
  41.  Call RegWriteValue(sP1 & "Personal",s,1)
  42.  Call RegWriteValue(sP2 & "Personal",s,1)
  43.  
  44.  s=GetUIElement(2)
  45.  Call RegWriteValue(sP1 & "AppData",s,1)
  46.  Call RegWriteValue(sP2 & "AppData",s,1)
  47.  
  48.  
  49.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  50.  Call Logoff() 'Required because of ActiveDestop and other crap
  51. End Sub
  52.  
  53.  
  54. Sub Plugin_Terminate 
  55. End Sub
  56.  
  57.  
  58.  
  59.